home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / freq / tvdir / tvdir.bas
BASIC Source File  |  1988-12-16  |  1KB  |  55 lines
  1. 1 KEY OFF
  2. 2 CLS
  3. 3 LOCATE 1,1,0
  4. 10 PRINT "TV CHANNEL FREQUENCY DIRECTORY"
  5. 20 PRINT "******************************"
  6. 30 PRINT "ENTER TV CHANNEL :  ";
  7. 35 INPUT A$
  8. 40 A=ASC(A$):IF A>64 THEN 300
  9. 50 C=VAL(A$)
  10. 100 IF C<2 THEN 600
  11. 110 IF C<5 THEN 200
  12. 120 IF C<7 THEN 190
  13. 130 IF C<14 THEN 180
  14. 140 PRINT "UHF OR CABLE";
  15. 145 INPUT B$
  16. 150 IF LEFT$ (B$, 1)="C" THEN 320
  17. 160 IF C>83 THEN 600
  18. 170 BC=14:BF=470:GOTO 400
  19. 180 BC=7:BF=174:GOTO 400
  20. 190 BC=5:BF=76:GOTO 400
  21. 200 BC=2:BF=54:GOTO 400
  22. 300 IF A>90 THEN 600
  23. 310 C=A-51:PRINT A$;" = CABLE CH# ";C
  24. 320 IF C>40 THEN 600
  25. 330 IF C<23 THEN PRINT "MID BAND CHANNEL":GOTO 360
  26. 340 PRINT "SUPER BAND CHANNEL"
  27. 350 BC=23:BF=216:GOTO 400
  28. 360 BC=14:BF=120
  29. 400 LB=BF+(C-BC)*6
  30. 410 UB=LB+6
  31. 420 FV=LB+1.25:FC=FV+3.58:FA=FV+4.5
  32. 430 FL=LB+47
  33. 440 IL=UB+41*2:IU=LB+47*2
  34. 450 PRINT "FREQUENCY RANGE=" ;LB;" TO ";UB;" MHZ."
  35. 460 PRINT "PIX CARRIER =" ;FV;" MHZ."
  36. 470 PRINT "COLOR CARRIER =" ;FC;"MHZ. "
  37. 480 PRINT "SOUND CARRIER =" ;FA;" MHZ."
  38. 490 PRINT
  39. 500 PRINT "NOTE: THE FOLLOWING ASSUMES A
  40. 512 PRINT "RECIVER WITH A 41-47MHZ I.F.
  41. 515 PRINT "(41.25MHZ SOUND, 45.75MHZ PIX.)"
  42. 516 PRINT
  43. 520 PRINT "LOCAL OSCILLATOR=" ;FL;"MHZ."
  44. 540 PRINT "IMAGE RANGE=";IL;"TO";IU;"MHZ."
  45. 545 PRINT
  46. 550 PRINT "MORE";
  47. 560 INPUT C$
  48. 570 IF C$="Y" THEN 20
  49. 571 IF C$="y" THEN 20
  50. 572 IF C$="N" THEN 575
  51. 573 IF C$="n" THEN 575
  52. 575 CLS
  53. 580 END
  54. 600 PRINT "NON-EXISTANT CHANNEL":GOTO 20
  55.